home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Networking / MacMainFrame / card_2362.txt < prev    next >
Text File  |  1989-07-14  |  12KB  |  518 lines
  1. -- card: 2362 from stack: in
  2. -- bmap block id: 25689
  3. -- flags: 0000
  4. -- background id: 2776
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   delete line 1 of card field 6
  9.   delete line 1 of card field 7
  10. end openCard
  11. on mouseUp
  12.   global temp
  13. end mouseUp
  14.  
  15.  
  16.  
  17.  
  18. -- part 1 (button)
  19. -- low flags: 00
  20. -- high flags: 0002
  21. -- rect: left=7 top=308 right=336 bottom=45
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 30557 / 30557
  24. -- text alignment: 1
  25. -- font id: 0
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: First
  30. ----- HyperTalk script -----
  31. on mouseUp
  32.   visual effect scroll right
  33.   push card
  34.   go to card id 9514
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 2 (button)
  40. -- low flags: 00
  41. -- high flags: 0002
  42. -- rect: left=469 top=309 right=337 bottom=506
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 1012 / 1012
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Return
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   visual effect scroll left
  54.   hide card field id 4
  55.   hide card field id 5
  56.   hide card field id 6
  57.   set hilite of card button id 8 to false
  58.   set hilite of card button id 9 to false
  59.   set hilite of card button id 10 to false
  60.   pop card
  61. end mouseUp
  62.  
  63.  
  64.  
  65. -- part 3 (field)
  66. -- low flags: 81
  67. -- high flags: 2004
  68. -- rect: left=188 top=80 right=219 bottom=390
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 10
  74. -- style flags: 0
  75. -- line height: 13
  76. -- part name: 
  77. ----- HyperTalk script -----
  78. on mouseUp
  79.   hide card field id 3
  80. end mouseUp
  81. on mouseLeave
  82.   hide card field id 3
  83. end mouseLeave
  84.  
  85.  
  86.  
  87.  
  88. -- part 4 (field)
  89. -- low flags: 81
  90. -- high flags: 2004
  91. -- rect: left=15 top=78 right=284 bottom=392
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: 
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   hide card field id 4
  103.   hide card field id 3
  104.   hide card field id 17
  105.   set hilite of card button id 8 to false
  106. end mouseUp
  107.  
  108.  
  109.  
  110. -- part 5 (field)
  111. -- low flags: 81
  112. -- high flags: 2004
  113. -- rect: left=59 top=72 right=275 bottom=393
  114. -- title width / last selected line: 0
  115. -- icon id / first selected line: 0 / 0
  116. -- text alignment: 0
  117. -- font id: 3
  118. -- text size: 12
  119. -- style flags: 0
  120. -- line height: 16
  121. -- part name: 
  122. ----- HyperTalk script -----
  123. on mouseUp
  124.   hide card field id 5
  125.   set hilite of card button id 9 to false
  126. end mouseUp
  127.  
  128.  
  129.  
  130.  
  131. -- part 6 (field)
  132. -- low flags: 81
  133. -- high flags: 2004
  134. -- rect: left=84 top=78 right=250 bottom=393
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 0
  138. -- font id: 3
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: 
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   hide card field id 6
  146.   hide card field id 3
  147.   set hilite of card button id 10 to false
  148. end mouseUp
  149.  
  150.  
  151.  
  152. -- part 7 (button)
  153. -- low flags: 00
  154. -- high flags: 0000
  155. -- rect: left=451 top=30 right=54 bottom=479
  156. -- title width / last selected line: 0
  157. -- icon id / first selected line: 26635 / 26635
  158. -- text alignment: 1
  159. -- font id: 0
  160. -- text size: 12
  161. -- style flags: 0
  162. -- line height: 16
  163. -- part name: New Button
  164. ----- HyperTalk script -----
  165. on mouseUp
  166.   hide card field id 4
  167.   hide card field id 5
  168.   hide card field id 6
  169.   set hilite of card button id 8 to false
  170.   set hilite of card button id 9 to false
  171.   set hilite of card button id 10 to false
  172.   show card field id 3
  173. end mouseUp
  174.  
  175.  
  176.  
  177. -- part 8 (button)
  178. -- low flags: 00
  179. -- high flags: 2006
  180. -- rect: left=68 top=54 right=74 bottom=87
  181. -- title width / last selected line: 0
  182. -- icon id / first selected line: 0 / 0
  183. -- text alignment: 1
  184. -- font id: 0
  185. -- text size: 12
  186. -- style flags: 0
  187. -- line height: 16
  188. -- part name: New Button
  189. ----- HyperTalk script -----
  190. on mouseUp
  191.   set hilite of card button id 9 to false
  192.   set hilite of card button id 10 to false
  193.   hide card field id 3
  194.   hide card field id 5
  195.   hide card field id 6
  196.   hide card field id 17
  197.   show card field id 4
  198.   if hilite of card button id 8 is true then
  199.     show card field id 4
  200.   else
  201.     hide card field id 4
  202.   end if
  203. end mouseUp
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211. -- part 9 (button)
  212. -- low flags: 00
  213. -- high flags: 2006
  214. -- rect: left=126 top=54 right=74 bottom=145
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: New Button
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   set hilite of card button id 8 to false
  226.   set hilite of card button id 10 to false
  227.   hide card field id 3
  228.   hide card field id 4
  229.   hide card field id 6
  230.   hide card field id 17
  231.   show card field id 5
  232.   if hilite of card button id 9 is false then
  233.     hide card field id 5
  234.   end if
  235. end mouseUp
  236.  
  237.  
  238.  
  239.  
  240. -- part 10 (button)
  241. -- low flags: 00
  242. -- high flags: 2006
  243. -- rect: left=196 top=54 right=74 bottom=215
  244. -- title width / last selected line: 0
  245. -- icon id / first selected line: 0 / 0
  246. -- text alignment: 1
  247. -- font id: 0
  248. -- text size: 12
  249. -- style flags: 0
  250. -- line height: 16
  251. -- part name: New Button
  252. ----- HyperTalk script -----
  253. on mouseUp
  254.   set hilite of card button id 8 to false
  255.   set hilite of card button id 9 to false
  256.   hide card field id 3
  257.   hide card field id 4
  258.   hide card field id 5
  259.   hide card field id 17
  260.   show card field id 6
  261.   if hilite of card button id 10 is false then
  262.     hide card field id 6
  263.   end if
  264. end mouseUp
  265.  
  266.  
  267.  
  268. -- part 12 (button)
  269. -- low flags: 00
  270. -- high flags: 0002
  271. -- rect: left=7 top=308 right=336 bottom=45
  272. -- title width / last selected line: 0
  273. -- icon id / first selected line: 30557 / 30557
  274. -- text alignment: 1
  275. -- font id: 0
  276. -- text size: 12
  277. -- style flags: 0
  278. -- line height: 16
  279. -- part name: First
  280. ----- HyperTalk script -----
  281. on mouseUp
  282.   visual effect scroll right
  283.   hide card field id 4
  284.   hide card field id 5
  285.   hide card field id 6
  286.   set hilite of card button id 8 to false
  287.   set hilite of card button id 9 to false
  288.   set hilite of card button id 10 to false
  289.   push card
  290.   go to card id 9514
  291. end mouseUp
  292.  
  293.  
  294.  
  295. -- part 13 (button)
  296. -- low flags: 00
  297. -- high flags: A003
  298. -- rect: left=398 top=163 right=185 bottom=462
  299. -- title width / last selected line: 0
  300. -- icon id / first selected line: 0 / 0
  301. -- text alignment: 1
  302. -- font id: 0
  303. -- text size: 12
  304. -- style flags: 0
  305. -- line height: 16
  306. -- part name: Save As
  307. ----- HyperTalk script -----
  308. on mouseUp
  309.   set userLevel to 3
  310.   hide card field id 3
  311.   hide card field id 4
  312.   hide card field id 5
  313.   hide card field id 6
  314.   hide card field id 17
  315.   set hilite of card button id 8 to false
  316.   set hilite of card button id 9 to false
  317.   set hilite of card button id 10 to false
  318.   go to card id 7235
  319. end mouseUp
  320.  
  321.  
  322.  
  323.  
  324. -- part 14 (button)
  325. -- low flags: 00
  326. -- high flags: A003
  327. -- rect: left=112 top=289 right=311 bottom=175
  328. -- title width / last selected line: 0
  329. -- icon id / first selected line: 0 / 0
  330. -- text alignment: 1
  331. -- font id: 0
  332. -- text size: 12
  333. -- style flags: 0
  334. -- line height: 16
  335. -- part name: Execute
  336. ----- HyperTalk script -----
  337. on mouseUp
  338.   hide card field id 3
  339.   hide card field id 4
  340.   hide card field id 5
  341.   hide card field id 6
  342.   hide card field id 17
  343.   set hilite of card button id 8 to false
  344.   set hilite of card button id 9 to false
  345.   set hilite of card button id 10 to false
  346.   set userLevel to 3
  347.   choose browse tool
  348.   set lockText of card field 6 to false
  349.   click at the loc of card field 6
  350.   type "DEMO"
  351.   set lockText of card field 7 to false
  352.   click at the loc of card field 7
  353.   type "FILE"
  354.   wait 1 seconds
  355.   set lockText of card field 6 to true
  356.   set lockText of card field 7 to true
  357.   go to card id 24630
  358. end mouseUp
  359.  
  360.  
  361.  
  362.  
  363. -- part 15 (button)
  364. -- low flags: 00
  365. -- high flags: A003
  366. -- rect: left=224 top=289 right=311 bottom=282
  367. -- title width / last selected line: 0
  368. -- icon id / first selected line: 0 / 0
  369. -- text alignment: 1
  370. -- font id: 0
  371. -- text size: 12
  372. -- style flags: 0
  373. -- line height: 16
  374. -- part name: Cancel
  375. ----- HyperTalk script -----
  376. on mouseUp
  377.   hide card field id 3
  378.   hide card field id 4
  379.   hide card field id 5
  380.   hide card field id 6
  381.   hide card field id 17
  382.   set hilite of card button id 8 to false
  383.   set hilite of card button id 9 to false
  384.   set hilite of card button id 10 to false
  385.   go to card id 20989
  386. end mouseUp
  387.  
  388.  
  389.  
  390.  
  391. -- part 16 (button)
  392. -- low flags: 00
  393. -- high flags: A003
  394. -- rect: left=341 top=290 right=310 bottom=400
  395. -- title width / last selected line: 0
  396. -- icon id / first selected line: 0 / 0
  397. -- text alignment: 1
  398. -- font id: 0
  399. -- text size: 12
  400. -- style flags: 0
  401. -- line height: 16
  402. -- part name: Batch
  403. ----- HyperTalk script -----
  404. on mouseUp
  405.   show card field id 17
  406. end mouseUp
  407.  
  408.  
  409.  
  410. -- part 17 (field)
  411. -- low flags: 81
  412. -- high flags: 2004
  413. -- rect: left=295 top=226 right=284 bottom=459
  414. -- title width / last selected line: 0
  415. -- icon id / first selected line: 0 / 0
  416. -- text alignment: 0
  417. -- font id: 3
  418. -- text size: 12
  419. -- style flags: 0
  420. -- line height: 16
  421. -- part name: 
  422. ----- HyperTalk script -----
  423. on mouseUp
  424.   hide card field id 17
  425. end mouseUp
  426. on mouseLeave
  427.   hide card field id 17
  428. end mouseLeave
  429.  
  430.  
  431. -- part 18 (field)
  432. -- low flags: 01
  433. -- high flags: 0000
  434. -- rect: left=224 top=84 right=106 bottom=343
  435. -- title width / last selected line: 0
  436. -- icon id / first selected line: 0 / 0
  437. -- text alignment: 0
  438. -- font id: 3
  439. -- text size: 12
  440. -- style flags: 0
  441. -- line height: 16
  442. -- part name: 
  443.  
  444.  
  445. -- part 19 (field)
  446. -- low flags: 01
  447. -- high flags: 0000
  448. -- rect: left=223 top=111 right=131 bottom=343
  449. -- title width / last selected line: 0
  450. -- icon id / first selected line: 0 / 0
  451. -- text alignment: 0
  452. -- font id: 3
  453. -- text size: 12
  454. -- style flags: 0
  455. -- line height: 16
  456. -- part name: 
  457.  
  458.  
  459. -- part 20 (button)
  460. -- low flags: 00
  461. -- high flags: 0000
  462. -- rect: left=75 top=290 right=314 bottom=107
  463. -- title width / last selected line: 0
  464. -- icon id / first selected line: 19162 / 19162
  465. -- text alignment: 1
  466. -- font id: 0
  467. -- text size: 12
  468. -- style flags: 0
  469. -- line height: 16
  470. -- part name: New Button
  471. ----- HyperTalk script -----
  472. on mouseUp
  473.   show card field id 21
  474. end mouseUp
  475.  
  476.  
  477.  
  478. -- part contents for card part 3
  479. ----- text -----
  480. MacMainFrame's file transfer features allow true sharing of text, document, and binary data between Macintosh users and the IBM host. To download a file simply name the file, indicate the file type, and execute.
  481.  
  482. Select one of the file types above to learn more about each type of file transfer.
  483.  
  484. -- part contents for card part 4
  485. ----- text -----
  486. Text file transfer.   MacMainFrame provides the ability to upload a Macintosh file to the IBM host in Text format.  Once uploaded, files can be manipulated by host programs.  They can also be retrieved by Macintosh and IBM PC users connected to the same host.
  487.  
  488. A Text File Filtering capability consists of Variable Tab Expansion on uploads and Special Character  Insertion on downloads.  Variable Tab Expansion allows formatting to host standards of appearance.  Special Character  Insertion allows download of IBM mainframe documents for use with Macintosh applications such as Excel.
  489.  
  490.  
  491.  
  492.  
  493.  
  494.  
  495.  
  496.  
  497. -- part contents for card part 5
  498. ----- text -----
  499. Binary file transfer.    MacMainFrame's Binary Transfer feature supports transfer of Macintosh files in a binary format to and from IBM mainframes, enhancing Macintosh-to-PC communications.  When used with IBM PC host file transfer products, such as Avatar's PA100G or IBM's PC-3270 product, MacMainFrame allows files such as Lotus 1-2-3- WKS, IBM Document Content Architecture (DCA), and Microsoft. SYLK to be shared by both IBM PC and Macintosh users.  This allows  Lotus 1-2-3 and Excel users to share files with mainframe users.
  500.  
  501.  
  502.  
  503.  
  504. -- part contents for card part 6
  505. ----- text -----
  506. Document file transfer.  With this feature, users can employ the host as a storage resource, as well as a central mailbox  to exchange information such as Excel worksheets.  It does this by not only enabling the user to store an exact representation of a Macintosh file on the host, but also by uploading a Macintosh file to the host, which can later by retrieved by another Macintosh user.
  507.  
  508. -- part contents for card part 17
  509. ----- text -----
  510. Batch files permits the loading of a numer of files in one operation.
  511.  
  512. -- part contents for card part 18
  513. ----- text -----
  514. DEMO
  515.  
  516. -- part contents for card part 19
  517. ----- text -----
  518. FILE